Delphi Programmer's Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / spidr100 / setup.arv / STRINGS.DAT < prev next >

Wrap

Text File | 1996-09-15 | 2.1 KB | 264 lines

add breakpoint command fax air mail add module dialog box component database direct structure viewer access printer by forms form Library Data Object Pascal Containers Module Hash Test Description Form to test hash and string table classes TStringTable uses a THashTable for implementation a TStringTable instance is used as the container for this test form History Version led building elastic eleven accessing control editor powerful solution registry based on create done set get init done true false ListBox TListBox; ItemCount Label AddButton Button SearchButton DeleteButton ClearButton LoadButton procedure FormCreate Sender TObject FormDestroy AddButtonClick FormClose ClearButtonClick retrieve save open load save as project bytes byte allows list box grid string grid combo box private Private declarations StringTable TStringTable redraws the list box from the contents of the hash table UpdateListBox iterator method to add a TStringCombo to the list box AddString public implementation uses const Hash table size number unique hash entries in table THashTableForm begin used as the container for this test form History Version led building elastic eleven accessing control Action Free var High Low Median TArrayIndex Comparison Found begin CheckType if not Sorted then RaiseArrayNotSorted while Found do Median check for range error at upper bound SearchBinary Invalid Array Index else type TContainer class Object protected ElementType TClass type element allowed in container FSize LongInt number elements container verifies to make sure Obj is of raised procedure Obj TObject GetSize and Query Empty may overriden for derived containers that use an embedded container function GetSize LongInt virtual function QueryEmpty Boolean virtual public constructor Create destroys destroying help text calls Clear to remove and free every element in the